home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / STRAOB / TEST2.PAS < prev    next >
Pascal/Delphi Source File  |  1995-03-09  |  1KB  |  64 lines
  1. PROGRAM TEST2;
  2.  
  3. {$M 20000,0,100000}
  4.  
  5. Uses PbMISC, PbDATA, TEXTobjs;
  6.  
  7.  
  8. {
  9. Description : Show STRA Loadsection method
  10.  
  11. Author      : Howard Richoux
  12. Date        :
  13. Last revised:
  14. Application : IBM PC and compatibles, done in Turbo Pascal 7
  15. Status      : Placed in the Public Domain by HNR Software January 31, 1994
  16. Published in: none
  17. }
  18.  
  19.  
  20. {*****************************************************************}
  21.  
  22.  
  23. Procedure GoOn;
  24. var x,y : STRA_object;
  25.     i,xmax : integer;
  26.      begin
  27.  
  28.      y.init(300);
  29.      y.loadsectlist('misccore.inc','{section ');
  30.      writeln('MISCCORE.INC has lots of procedures with section comments.');
  31.      writeln('They look like  "{section IntegerStr }" ');
  32.      writeln('Here are some: ');
  33.      writeln('');
  34.      for i := 35 to 39 do writeln('section ',i:3,'  ',y.fetchN(i));
  35.  
  36.      xmax := 100;
  37.      x.init(xmax);
  38.      x.loadsection('misccore.inc','{section ','integerstr');
  39.      writeln('');
  40.      writeln('TEST2 is loading just the section "integerstr" into memory.');
  41.      writeln('Here is what we loaded from MISCCORE.INC');
  42.      writeln('');
  43.      x.dump;
  44.  
  45.      y.done;
  46.      x.done;
  47.      end;
  48.  
  49.  
  50.  
  51. Procedure Init;
  52.      begin
  53.      end;
  54.  
  55.  
  56. (*  Main program *)
  57.      BEGIN
  58.      pProgID := 'TEST 1.00';
  59.      Init;
  60.      GoOn;
  61.      end.
  62.  
  63.  
  64.